module Sala where

type ID		=	Int
type Row	=	Int
type Col	=	Int
type Name	=	String

data Sala = Sala ID Name Row Col

instance Show Sala where
	show (Sala sid nam r c) = "* Sala \t numer \t\t" ++ show sid ++ "\n" ++
								"\t nazwa \t\t" ++ show nam ++ "\n" ++
								"\t rzedow \t" ++ show r ++ "\n" ++
								"\t kolumn \t" ++ show c ++ "\n"

salaID :: Sala -> ID
salaID (Sala x _ _ _ ) = x
								
salaName :: Sala -> Name
salaName (Sala x name _ _ ) = name

salaRows :: Sala -> Row
salaRows (Sala x _ r _ ) = r

salaCols :: Sala -> Col
salaCols (Sala x _ _ c ) = c

-- setSalaName :: Sala -> String -> Sala
-- setSalaName (Sala x name r c ) newName = Sala x newName r c
